[ تمت الإجابة ]كيفية وضع هذا الكود فى موديول

بدأه bakkar2000 في 1 مارس 2008 · 4 رد · 764 مشاهدة · في قواعد بيانات Microsoft Access

مشاركة: واتساب X فيسبوك تيليجرام

#11 مارس 2008 في 12:09 صاحب الموضوع

بسم الله الرحمن الرحيم

لدى هذا الكود

Dim ctl As Control

Set ctl = Me.ActiveControl

If Val(ctl) > Me![AHA](ctl.name & "H") Then

End If

If Val(ctl) < Me![AHA](ctl.name & "L") Then

End If

يتم تكراره فى 63 نموذج ويتكرر فى كل النموذج من7 إلي21 مره وهذا حسب عدد التكست بكس فى النموذج

طبعاً كتير جداً على البرنامج ويجعله ثقيل ومتكاسل فى العمل فكرت أضعة فى موديول ليتم أستدعائه بدلاً من كتابته كل مره وبالفعل قد فعلتها

ولكــــــــــــــــــــــــــــــــــــــــــــــن....وأجهتنى مشكله ME والتى أعلم أنها تعبر عن النموذج الحالى النموذج النشط

حيث كلما أستدعى الموديول تظهر رساله تقولInvalid use of ME keyword

* كيف يتم أستبدال هذه الكلمه بأخرى بحيث يتم أستدعاء الموديول فى أى نموذج دون أعتراض أو تأثير على العمل

أشكر لكم كل الشكر

#21 مارس 2008 في 13:49

اخي الفاضل

جرب هذا الكود

Public Function AHA()
Dim frm As Form
Dim ctl As Control
Set frm = Forms!FormName
Set ctl = frm.Controls("AHA")

If Val(ctl) > (ctl.Name & "H") Then

End If
If Val(ctl) < (ctl.Name & "L") Then

End If
End Function

اذا ظهر لك خطا ما فإستبدل السطر التالي

Set frm = Forms!FormName

بهذا السطر

Set frm = Screen.ActiveForm

اذا كان كل شيء تما اترك السطر السابق كما هو

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#31 مارس 2008 في 22:05

بسم الله الرحمن الرحيم

كل الشكر أستاذتنا زهرة

بعد التجربه حدث فعلاً خطأ كما توقعتم فقمت بالإستبدال للأكواد كما أشرتم ولكن حدث العديد من رسائل الخطأ

فقمت بوضع الكود الخاص بى وتلقيمة ببعض أكوادكم وهو الأن معافاً و يعمل بصحه جيده وها هو الكود

Dim ctl As Control
'Set frm = Forms!FormName
Set frm = Screen.ActiveForm
'Set ctl = frm.Controls("AHA")

Set ctl = frm.ActiveControl
If Val(ctl) > frm![AHA](ctl.name & "H") Then

End If
If Val(ctl) < frm![AHA](ctl.name & "L") Then

End If

Dim frm As Form

أسف وسمحينى على تعبك

لكى كل الشكر أستاذتنا

تم تعديل هذه المشاركة بواسطة zahrah في 2 مارس 2008 في 12:43

#42 مارس 2008 في 10:53

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

طبتم واهتديتم :)

===================================

إقرأ معي

رابط متجدد لكتاب أقرؤه فشاركني فيه

======

فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب

الكتاب :

حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار

اضغط على الصورة لتحميل الكتاب